home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / a-g / ami2d / test / rotate.rexx < prev    next >
OS/2 REXX Batch file  |  1978-11-24  |  673b  |  41 lines
  1. /* rotating beam */
  2. options results
  3.  
  4. if ~show('ports', "AMI2D") then do
  5.     address command 'run ami2d:bin/ami2d'
  6.     do while ~show('ports', "AMI2D")
  7.     end
  8. end
  9.  
  10. address ami2d
  11.  
  12. call 'ami2d:rexx/plstress'
  13.  
  14. if ~show('l', "rexxmathlib.library") then do
  15.     check = addlib('rexxmathlib.library',0,-30,0)
  16. end
  17.  
  18. h = 0.5
  19. L = 10.0
  20. E1 = 1000
  21. nu1 = 0.3000
  22.  
  23. reset
  24. iso 1 E1 nu1
  25. do i=0 to 20
  26.     xx = L*i/20
  27.     node i+1 xx 0.0
  28.     node i+31 xx h
  29. end
  30. do i=0 to 19
  31.     quad4 i+1 1 i+1 i+2 i+32 i+31
  32. end
  33.  
  34. dispx 1 0
  35. dispy 1 0
  36. alias 'rotx=pbc(a1,1,0,1,10*cos(a2*pi/180)-0.5*sin(a2*pi/180)-10)'
  37. alias 'roty=pbc(a1,1,0,2,10*sin(a2*pi/180)+0.5*cos(a2*pi/180)-0.5)'
  38. rotx 51 45
  39. roty 51 45
  40. exit
  41.